home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
terminal.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
351b
|
21 lines
5 'maybe this terminal prog works. off of Delphi 11/10/85.
10 open "O",#1,"ser:": print #1, " " : close #1
20 get a$: if a$="" then 60
40 ?a$;: if a$=chr$(13) then ?
50 gosub 70
60 gosub 90:goto 20
70 td=asc(a$): poke_w &hdff030,td+256: return
90 a=peek_w (&hdff018) and 127: if a=b then return
100 ?chr$(a);: if a=13 then ?
110 b=a: return